Imports Colegio
Imports System.Windows.Forms

Public Class FrmCargarATV

    Private Sub FrmCargarATV_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TxtLegajo.Focus()
        Me.MTBFechaNacimientoA.ValidatingType = GetType(DateTime)
        Me.MTBFechaNacimientoA.Mask = "00-00-0000"
        TxtEdad.ReadOnly = True
        'Cargamos item en la coleccion
        CBSexo.Items.Insert(0, "--Seleccione--")
        CBSexo.Items.Insert(1, "Femenino")
        CBSexo.Items.Insert(2, "Masculino")
        CBSexo.SelectedIndex = 0
        'CBSexo.Items.AddRange(New String() {"Femenino", "Masculino"})
        CmbNacionalidadA.Items.Insert(0, "--Seleccione--")
        CmbNacionalidadA.Items.Insert(1, "Argentino/a")
        CmbNacionalidadA.Items.Insert(2, "Chileno/a")
        CmbNacionalidadA.Items.Insert(3, "Uruguayo/a")
        CmbNacionalidadA.SelectedIndex = 0
        CmbNacionalidadT.Items.Insert(0, "--Seleccione--")
        CmbNacionalidadT.Items.Insert(1, "Argentino/a")
        CmbNacionalidadT.Items.Insert(2, "Chileno/a")
        CmbNacionalidadT.Items.Insert(3, "Uruguayo/a")
        CmbNacionalidadT.SelectedIndex = 0
        b = 0
        Dim codigo As Integer
        Dim otutoresnegocios As New Negocios.NTutores

        codigo = otutoresnegocios.buscarCantidadTutores()
        TxtCodigo.Text = codigo
        otutoresnegocios = Nothing
        tut = TxtCodigo.Text
        operacion = 0
        TxtCodigo.ReadOnly = True

        CkbActivoA.Checked = True
        CkbActivoA.Enabled = False
        CkbActivoT.Checked = True
        CkbActivoT.Enabled = False
        BtnBuscarTutor.Visible = True

        'Cargamos el combo localidades
        Dim NLocalidades As New Negocios.NLocalidades
        Dim oLocalidades As New List(Of Entidades.ELocalidad)
        Dim oBindingSource1 As New BindingSource
        Dim oBindingSource2 As New BindingSource
        oLocalidades = NLocalidades.Buscarlocalidades(True)
        oBindingSource1.DataSource = oLocalidades
        CBLocalidadA.DataSource = oBindingSource1
        CBLocalidadA.DisplayMember = "localidad"
        CBLocalidadA.ValueMember = "Idlocalidad"

        oBindingSource2.DataSource = oLocalidades
        CmbLocalidadT.DataSource = oBindingSource2
        CmbLocalidadT.DisplayMember = "localidad"
        CmbLocalidadT.ValueMember = "Idlocalidad"

        CmbParentesco.Items.Insert(0, "--Seleccione--")
        CmbParentesco.Items.Insert(1, "Padre")
        CmbParentesco.Items.Insert(2, "Madre")
        CmbParentesco.Items.Insert(3, "Hermano/a")
        CmbParentesco.Items.Insert(3, "Tio/a")
        CmbParentesco.Items.Insert(3, "Abuelo/a")
        CmbParentesco.Items.Insert(3, "Primo/a")
        CmbParentesco.Items.Insert(3, "otro Tutor/a")
        CmbParentesco.SelectedIndex = 0

        Dim ListaTut As New List(Of Entidades.ETutor)
        Dim tutNeg As New Negocios.NTutores
        ListaTut = tutNeg.buscarTutores(True)
        If ListaTut.Count = 0 Then
            BtnBuscarTutor.Enabled = False
        Else
            BtnBuscarTutor.Enabled = True
        End If
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub

    Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
        'valida los datos ingresados acerca del alumno
        If (Len(TxtLegajo.Text) = 0 And Not IsNum(TxtLegajo)) Then
            MsgBox("EL NUMERO DE LEGAJO es un campo obligatorio numerico ", MsgBoxStyle.Exclamation)
            TxtLegajo.Focus()
            Exit Sub
        End If

        If (Len(TxtApellidosA.Text) = 0 And Not IsText(TxtApellidosA)) Then
            MsgBox("EL APELLIDO del alumno es un campo obligatorio no numerico", MsgBoxStyle.Exclamation)
            TxtApellidosA.Focus()
            Exit Sub

        End If
        If Len(TxtNombresA.Text) = 0 And Not IsText(TxtNombresA) Then
            MsgBox("EL NOMBRE del alumno es un campo obligatorio", MsgBoxStyle.Exclamation)
            TxtNombresA.Focus()
            Exit Sub
        End If
        If MTBDniA.Text = "  .   ." Then
            MsgBox("EL DNI del alumno es un campo obligatorio", MsgBoxStyle.Exclamation)
            MTBDniA.Focus()
            Exit Sub
        End If

        'If (Len(MTBFechaNacimientoA.Text) = 0) Then
        '    MsgBox("LA FECHA DE NACIMIENTO es un campo obligatorio", MsgBoxStyle.Exclamation)
        '    MTBFechaNacimientoA.Focus()
        '    Exit Sub
        'End If
        If Me.MTBFechaNacimientoA.ValidateText() Is Nothing Then
            MsgBox("La fecha de nacimiento del alumno es incorrecta", MsgBoxStyle.Exclamation)
            MTBFechaNacimientoA.Focus()
            Exit Sub
        End If
        If (Len(TxtEdad.Text) = 0 And TxtEdad.Text = "") Then
            MsgBox("La edad  es un campo obligatorio", MsgBoxStyle.Exclamation)
            TxtEdad.Focus()
            Exit Sub
        End If
        If (CBSexo.SelectedItem.ToString = "--Seleccione--" And CBSexo.Items.IndexOf(CBSexo.SelectedItem.ToString) = 0) Then
            MsgBox("Debe seleccionar el sexo del alumno", MsgBoxStyle.Exclamation)
            CBSexo.Focus()
            Exit Sub
        End If

        If (CmbNacionalidadA.Text = "--Seleccione--" And CmbNacionalidadA.Items.IndexOf(CmbNacionalidadA.Text) = 0) Then
            MsgBox("Debe seleccionar la nacionalidad del alumno", MsgBoxStyle.Exclamation)
            CmbNacionalidadA.Focus()
            Exit Sub
        End If

        If (Len(TxtDireccionA.Text) = 0) Then
            MsgBox("LA DIRECCION del alumno es un campo obligatorio", MsgBoxStyle.Exclamation)
            TxtDireccionA.Focus()
            Exit Sub
        End If
        If LstTutores.Items.Count = 0 Then
            MsgBox("DEBE INGRESAR LOS TUTORES", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        Dim Legajo As Integer
        Legajo = TxtLegajo.Text

        Dim oAlumno As New Entidades.EAlumno

        oAlumno.Num_Legajo = Convert.ToInt32(TxtLegajo.Text)
        oAlumno.nombres = TxtNombresA.Text
        oAlumno.apellido = TxtApellidosA.Text
        oAlumno.telefono = MTBTelefonoA.Text
        oAlumno.direccion = TxtDireccionA.Text
        oAlumno.email = TxtEmailA.Text
        oAlumno.dni = MTBDniA.Text
        oAlumno.localidad = CBLocalidadA.SelectedValue
        oAlumno.Fecha_Nacimiento = MTBFechaNacimientoA.Text
        oAlumno.Sexo = CBSexo.SelectedItem.ToString
        oAlumno.Nacionalidad = CmbNacionalidadA.SelectedItem.ToString
        oAlumno.Edad = TxtEdad.Text
        oAlumno.Activo = chequeamos(CkbActivoA)
        Dim oTutores As New List(Of Entidades.ETutor)
        Dim oVinculos As New List(Of Entidades.EVinculo)
        Dim i As Integer
        For i = 0 To LstTutores.Items.Count - 1
            'Dim otutoresnegocio As New Negocios.NTutores
            'Dim otutores As New Entidades.ETutores
            Dim otutor As New Entidades.ETutor
            otutor.idtutor = LstTutores.Items(i).SubItems(0).Text
            otutor.apellido = LstTutores.Items(i).SubItems(1).Text
            otutor.nombres = LstTutores.Items(i).SubItems(2).Text
            otutor.dni = LstTutores.Items(i).SubItems(3).Text
            otutor.direccion = LstTutores.Items(i).SubItems(6).Text
            otutor.telefono = LstTutores.Items(i).SubItems(8).Text
            otutor.email = LstTutores.Items(i).SubItems(9).Text
            otutor.localidad = LstTutores.Items(i).SubItems(7).Text
            otutor.profesion = LstTutores.Items(i).SubItems(10).Text
            otutor.nacionalidad = LstTutores.Items(i).SubItems(5).Text
            otutor.cuit = LstTutores.Items(i).SubItems(4).Text
            otutor.nota = LstTutores.Items(i).SubItems(12).Text
            otutor.estado = chequeamos(CkbActivoT)
            oTutores.Add(otutor)

            Dim ovinculo As New Entidades.EVinculo
            ovinculo.nrolegajo = Convert.ToInt32(TxtLegajo.Text)
            ovinculo.idtutor = LstTutores.Items(i).SubItems(0).Text
            ovinculo.parentesco = LstTutores.Items(i).SubItems(11).Text
            ovinculo.estado = chequeamos(CkbActivoT)
            oVinculos.Add(ovinculo)
        Next
        oAlumno.ListaTutores = oTutores
        oAlumno.ListaVinculos = oVinculos
        Dim NAlta As New Negocios.NAltaAlumno
        If NAlta.cargarAlumno(oAlumno) Then
            MsgBox("Carga Exitosa", MsgBoxStyle.Information)
        Else
            MsgBox("Carga Fallida", MsgBoxStyle.Exclamation)
        End If
        Limpiar()
    End Sub

    Private Sub Limpiar()
        TxtLegajo.Text = ""
        TxtNombresA.Text = ""
        TxtApellidosA.Text = ""
        MTBDniA.Text = ""
        TxtDireccionA.Text = ""
        TxtEmailA.Text = ""
        TxtEdad.Text = ""
        MTBFechaNacimientoA.Text = "  /  /    "
        MTBTelefonoA.Text = ""
        CkbActivoA.Visible = True
        CkbActivoA.Checked = True
        CkbActivoA.Enabled = False
        TxtCodigo.ReadOnly = True
        TxtCodigo.Text = ""
        TxtApellidosT.Text = ""
        TxtNombresT.Text = ""
        MTBDniT.Text = ""
        MTBCuit.Text = ""
        TxtDireccionT.Text = ""
        MTBTelefonoT.Text = ""
        TxtEmailT.Text = ""
        TxtProfesion.Text = ""
        CmbParentesco.SelectedIndex = 0
        CmbNacionalidadA.SelectedIndex = 0
        CmbNacionalidadT.SelectedIndex = 0
        CBSexo.SelectedIndex = 0
        CBLocalidadA.SelectedIndex = 0
        CmbLocalidadT.SelectedIndex = 0
        TxtNota.Text = ""
        CkbActivoT.Visible = True
        CkbActivoT.Checked = True
        CkbActivoT.Enabled = False
        LstTutores.Items.Clear()
        LstTutores.View = View.Details

        Dim codigo As Integer
        Dim otutoresnegocios As New Negocios.NTutores

        codigo = otutoresnegocios.buscarCantidadTutores()
        TxtCodigo.Text = codigo
        otutoresnegocios = Nothing
        tut = TxtCodigo.Text

        b = 0
    End Sub

    Private Sub BtnBuscarTutor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarTutor.Click
        abrirFormulario(FrmBuscarTutor)
        FrmBuscarTutor.LblLegAlum.Text = TxtLegajo.Text
        FrmBuscarTutor.LblApeAlum.Text = TxtApellidosA.Text
        FrmBuscarTutor.LblNomAlum.Text = TxtNombresA.Text
        FrmBuscarTutor.Lbldnialum.Text = MTBDniA.Text
        FrmBuscarTutor.Lblfechaalum.Text = MTBFechaNacimientoA.Text
        FrmBuscarTutor.Lbledadalum.Text = TxtEdad.Text
        FrmBuscarTutor.Lblsexoalum.Text = CBSexo.Text
        FrmBuscarTutor.LblNacalum.Text = CmbNacionalidadA.Text
        FrmBuscarTutor.LblDirAlum.Text = TxtDireccionA.Text
        FrmBuscarTutor.LblLocAlum.Text = CBLocalidadA.SelectedValue
        FrmBuscarTutor.LblTelAlum.Text = MTBTelefonoA.Text
        FrmBuscarTutor.LblmailAlum.Text = TxtEmailA.Text
        operacion = 3
        Me.Close()
    End Sub

    Private Sub BtnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAgregar.Click
        If Len(TxtApellidosT.Text) = 0 And Not IsText(TxtApellidosT) Then
            MsgBox("El apellido del tutor es un campo obligatorio no numerico ", MsgBoxStyle.Exclamation)
            TxtApellidosT.Focus()
            Exit Sub
        End If
        If Len(TxtNombresT.Text) = 0 And Not IsText(TxtNombresT) Then
            TxtNombresT.Focus()
            MsgBox("El/los nombres del tutor son un campo obligatorio no numerico", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If MTBDniT.Text = "  .   ." Then
            MTBDniT.Focus()
            MsgBox("EL DNI del tutor  es un campo obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If MTBCuit.Text = "  -        -" Then
            MTBCuit.Focus()
            MsgBox("El CUIT del tutor es un campo obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If Len(TxtDireccionT.Text) = 0 Then
            TxtDireccionT.Focus()
            MsgBox("La direccion del tutor es un campo obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If MTBTelefonoT.Text = "(    )   -" Then
            MTBTelefonoT.Focus()
            MsgBox("El telefono del tutor es un campo obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If TxtProfesion.Text = "" Then
            TxtProfesion.Focus()
            MsgBox("La profesion del tutor es un campo obligatorio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If (CmbNacionalidadT.Text = "--Seleccione--" And CmbNacionalidadT.Items.IndexOf(CmbNacionalidadT.Text) = 0) Then
            MsgBox("Debe seleccionar la nacionalidad del tutor", MsgBoxStyle.Exclamation)
            CmbNacionalidadT.Focus()
            Exit Sub
        End If

        If (CmbParentesco.Text = "--Seleccione--" And CmbParentesco.Items.IndexOf(CmbParentesco.Text) = 0) Then
            MsgBox("Debe seleccionar el parentesco del tutor", MsgBoxStyle.Exclamation)
            CmbParentesco.Focus()
            Exit Sub
        End If

        LstTutores.Visible = True
        LstTutores.Items.Add(TxtCodigo.Text).ToString()
        LstTutores.Items(b).SubItems.Add(TxtApellidosT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(TxtNombresT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(MTBDniT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(MTBCuit.Text).ToString()
        LstTutores.Items(b).SubItems.Add(CmbNacionalidadT.SelectedItem.ToString)
        LstTutores.Items(b).SubItems.Add(TxtDireccionT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(CmbLocalidadT.SelectedValue)
        LstTutores.Items(b).SubItems.Add(MTBTelefonoT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(TxtEmailT.Text).ToString()
        LstTutores.Items(b).SubItems.Add(TxtProfesion.Text).ToString()
        LstTutores.Items(b).SubItems.Add(CmbParentesco.SelectedItem).ToString()
        LstTutores.Items(b).SubItems.Add(TxtNota.Text).ToString()
        If CkbActivoT.Checked Then
            LstTutores.Items(b).SubItems.Add("SI")
        Else
            LstTutores.Items(b).SubItems.Add("NO")
        End If

        b = b + 1
        tut = tut + 1
        TxtCodigo.Text = tut
        TxtApellidosT.Text = ""
        TxtNombresT.Text = ""
        MTBDniT.Text = ""
        MTBCuit.Text = ""
        TxtDireccionT.Text = ""
        MTBTelefonoT.Text = ""
        TxtEmailT.Text = ""
        TxtProfesion.Text = ""
        CmbParentesco.SelectedIndex = 0
        TxtNota.Text = ""
    End Sub

    Private Sub TxtLegajo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtLegajo.KeyPress
        Dim str As TextBox
        str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            If (IsNum(str)) Then
                TxtApellidosA.Focus()
            End If

        End If
    End Sub

    Private Sub TxtApellidos_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApellidosA.KeyPress
        Dim str As TextBox
        str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            If (IsText(str)) Then
                TxtNombresA.Focus()
            End If

        End If
    End Sub

    Private Sub TxtNombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNombresA.KeyPress
        Dim str As TextBox
        str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            If (IsText(str)) Then
                MTBDniA.Focus()
            End If

        End If
    End Sub

    Private Sub CBSexo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBSexo.SelectedIndexChanged
        CmbNacionalidadA.Focus()
    End Sub

    Private Sub TxtDireccionA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDireccionA.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            CBLocalidadA.Focus()
            e.Handled = True

            'SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub CBLocalidadA_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBLocalidadA.SelectedIndexChanged
        MTBTelefonoA.Focus()
    End Sub

    Private Sub MTBTelefonoA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBTelefonoA.KeyPress
        'Dim str As TextBox
        'str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            'If (IsNum(str)) Then
            TxtEmailA.Focus()
            'End If

            'TxtEmailA.Focus()
            'e.Handled = True
            'SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub TxtEmailA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEmailA.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            TxtApellidosT.Focus()
            e.Handled = True

        End If
    End Sub

    Private Sub MTBDniA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBDniA.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            MTBFechaNacimientoA.Focus()
            e.Handled = True
            'SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub MTBFechaNacimiento_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBFechaNacimientoA.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            TxtEdad.Text = Edad(MTBFechaNacimientoA.ValidateText).ToString()
            CBSexo.Focus()
            e.Handled = True
            'SendKeys.Send("{TAB}")
        End If
    End Sub

    Private Sub TxtApellidosT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtApellidosT.KeyPress
        Dim str As TextBox
        str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            If (IsText(str)) Then
                TxtNombresT.Focus()
            End If

        End If
    End Sub

    Private Sub TxtNombresT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNombresT.KeyPress
        Dim str As TextBox
        str = sender
        If e.KeyChar = ChrW(Keys.Enter) Then
            If (IsText(str)) Then
                MTBDniT.Focus()
            End If

        End If
    End Sub

    Private Sub MTBDniT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBDniT.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            MTBCuit.Focus()
        End If
    End Sub

    Private Sub TxtDireccionT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtDireccionT.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            CmbLocalidadT.Focus()
        End If
    End Sub

    Private Sub MTBTelefonoT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBTelefonoT.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            TxtEmailT.Focus()
        End If
    End Sub

    Private Sub TxtEmailT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtEmailT.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            TxtProfesion.Focus()
        End If
    End Sub

    Private Sub CmbLocalidadT_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbLocalidadT.SelectedIndexChanged
        MTBTelefonoT.Focus()
    End Sub

    Private Sub TxtProfesion_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtProfesion.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            CmbParentesco.Focus()
        End If
    End Sub

    Private Sub MTBCuit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MTBCuit.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            CmbNacionalidadT.Focus()
        End If
    End Sub

    Private Sub Txtnota_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNota.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            BtnAgregar.Focus()
        End If
    End Sub

    Private Sub CmbNacionalidadA_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbNacionalidadA.SelectedIndexChanged
        TxtDireccionA.Focus()
    End Sub

    Private Sub MTBFechaNacimientoA_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MTBFechaNacimientoA.Validated
        TxtEdad.Text = Edad(MTBFechaNacimientoA.ValidateText).ToString()
        CBSexo.Focus()
    End Sub

    Private Sub CmbNacionalidadT_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbNacionalidadT.SelectedIndexChanged
        TxtDireccionT.Focus()
    End Sub

End Class